home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / LOGPRINT.PRG < prev    next >
Text File  |  1986-05-08  |  4KB  |  88 lines
  1. * LOGPRINT  THIS PROGRAM PRINTS A LOG IN DATE ORDER
  2. * COPYRIGHT Joe Kasser G3ZCZ 1985. VER 86/04/05-1
  3. * CALLED BY LOGBOOK
  4.  
  5. * STRUCTURE FOR FILE:  B:logbook.DBF
  6.  
  7. * FLD       NAME      TYPE WIDTH   DEC
  8. * 001     DATE         C    008
  9. * 002     TIME         C    004
  10. * 003     BAND         C    003
  11. * 004     CALL         C    010
  12. * 005     RX           C    003
  13. * 006     TX           C    003
  14. * 007     MODE         C    004
  15. * 008     POWER        C    004
  16. * 009     QSLSENT      C    001
  17. * 010     QSLRX        C    001
  18. * 011     COMMENTS     C    010
  19.  
  20. STORE 99  TO linecount
  21. STORE  1  TO pagecount
  22. STORE  0  TO first
  23. STORE  1  TO qsonumber
  24. STORE ' ' TO page
  25. STORE ' ' TO firste
  26. STORE 0   TO pnumber
  27.  
  28. ERASE
  29.  
  30. USE &logbook
  31. GOTO BOTTOM
  32. IF # = 0
  33.    ? 'LOGBOOK IS BLANK'
  34. ELSE
  35.    ACCEPT 'FIRST ENTRY (Number of entry to be displayed ' TO firste
  36.    ACCEPT 'STARTING PAGE ' TO page
  37.    STORE VAL(page) TO pagecount
  38.    STORE VAL(firste) TO first
  39.    ACCEPT 'Offset From Previous Log (If none, enter 0) ' to pnumber
  40.    STORE first - VAL(pnumber) TO first
  41.    IF first < 1                                                                  
  42.       ? 'entry - offset is negative'                                             
  43.    ELSE                                                                                                                                                           
  44.       * rem at BOTTOM                                                            
  45.       IF # < first                                                               
  46.          STORE # TO first                                                        
  47.          ? 'Numbering Error'                                                     
  48.       ENDIF                                                                      
  49.                                                                                  
  50.       STORE ' ' TO df                                                            
  51.       ACCEPT 'Do you want a hard copy (Y/N)? ' TO df                             
  52.       IF df = 'Y'                                                                
  53.          SET PRINT ON                                                            
  54.       ENDIF                                                                      
  55.                                                                                  
  56.       GOTO first                                                                 
  57.       STORE first + VAL(pnumber) TO qsonumber                                    
  58.                                                                                  
  59.       DO WHILE .NOT.EOF                                                          
  60.                                                                                  
  61.          IF linecount > 57                                                       
  62.             EJECT                                                                
  63.             ? 'LOGBOOK PRINTOUT  ',callsign,'PAGE',pagecount                     
  64.             STORE pagecount + 1 TO pagecount                                     
  65.             ?                                                                    
  66.             ?                                                                    
  67.             ?  'LINE NUMBER  DATE    TIME BND  CALL      '
  68.             ?? 'RX  TX  MODE PWR S R COMMENTS'                                                    
  69.             ?  '----------------------------------'       
  70.             ?? '------------------------------------------'                                             
  71.             STORE 3 TO linecount                                                 
  72.          ENDIF                                                                   
  73.          ? qsonumber,date,time,band,call,rx,tx,mode
  74.          ?? power,qslsent,qslrx,comments 
  75.          STORE linecount + 1 TO linecount                                        
  76.          STORE qsonumber + 1 TO qsonumber                                        
  77.          SKIP                                                                    
  78.       ENDDO                                                                      
  79.    ENDIF                                                                         
  80.    EJECT
  81.    SET PRINT OFF
  82.    ?
  83.    RELEASE pnumber,df,firste,page,linecount,qsonumber,pagecount,first
  84. ENDIF
  85. WAIT
  86. USE
  87. RETURN
  88.